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A1 



select a number N, where N> 1 , thai: is the 
desired number of display codes to decode at 
each repetition 



i 



A2 



determine the lowest power (P) of a base A N such 
that (base A N) A P < a numerical value to be 
decoded 



A3 



If P < 1 determine display codes for the 
numerical value and goto END 



i 



A4 



If P > 1 , divide the numerical value by 
(base A N) A P and determine two or more display 

codes for the whole result and save the 
determined display codes 



4 



A5 



set: 

numerical value = numerical value - whole result; 

P = P-1; 

goto A3; 



4 



A6 



END: concatenate saved display codes and 
return display code results 



FIG. 1 
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B1 



set n = the number to be decoded 



B2 



BEGINJ-OOP: if n < (10 A N) goto END LOOP 



B3 



use {n modulo <10 A N>) to decode the remaining 
rightmost N character codes 



4- 



B4 



n = fl/<10 A N> 



B5 



goto BEGIN LOOP 



i 



B6 



END_LOOP: use n to decode the final left-most 
character codes, 
concatenate saved character codes, 
and return character code resul ts 

FIG. 2 
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C1 



determine an available memory size for 
character code table, where the necessary 
memory size MS = N*base A N, where N>1 and is 
the desired number of display codes to decode at 
each repetition 



C2 



fill table locations with display codes 
corresponding to index values of the table 



4- 



C3 



establish a callable logic routine or function or 
modify existing functions so that requests to 
convert numerical data to display codes 



4- 



C4 



use the table to look-up N character codes to 
decode a numerical value 

FIG. 3 
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FIG. 4 - ASCII Table (7-bit) for reference 
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ETX ( End of Text) 
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044 
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/////////////////////////////////////////////////////////////////// 

// GET_ASCII_FRACTIONAL_DIGITS EXAMPLE CODE 

/////////////////////////////////////////////////////////////////// 
// Brief description: Get ascii fractional digits. 
// Expected: 

// a ■ address of a character array for output ascii digits 

// i = index into above character array 

// n = binary integer to convert 

// p s scale fractional digits 

// digits = number of precision digits 

// Result : i new index into a 

// Other variables: 

// TABLE_SCALE = number of entries in looked-up table; also 10 A N 

// index = index value used to access ntab 

// ntab s indexed table of character codes 

// TABLE_DIGITS = number of digits in each table entry 

// table_digit = position of digit (1 st (0) through TABLE_DIGITS th 

// TABLE_DIGITS -1) ) read in a 

// particular table entry; DAN, I AM A LITTLE CONFUSED BY THIS 

/////////////////////////////////////////////////////////////////// 
inline int routine get_ascii_f ractional_digits (char *a, int i, int n, 

int fract_digits, int digits) 

{ 

int table_digit 7 index; 

if (n < 0) /* calculate -1 */ 

n = -n; /* as 1 */ 

while (fract_digits > 0) 

{ 

if (n < TABLETS GALE ) 

{ /* already less no need for a divide */ 

index = (int) n; /* use the number as the index */ 

n » 0; /* no more number */ 

} 

else 

index = n % TABLETS GALE ; /* set index to remainder (using modulo) */ 

n /= TABLE_SCALE; /* new n = n/TABLE_SCALE 

} 

for (table_digit - 0; table_digit < TABLE_DIGITS ; 
table_digit++, --f ractdigits) 
if (fract_digits > 0 && fract_digits <= digits) 

a[i++] ■ ntab [index] [table_digit] ; /* In this example, each character is 

/* separately fetched from its table 
/* entry and the table is treated as a 
/* 2 -dimensional table. 

} 

return i; 

} /* END get ascii fractional digits */ 

FIG. 6 
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/////////////////////////////////////////////////////////////////// 

// GET_ASCII_WHOLE_DIGITS 

/////////////////////////////////////////////////////////////////// 
// Brief description: Get ascii whole integer digits. 
// Expected: 

// a address a character array for ascii digits 

// i = index into above character array 

// n = binary 64 -bit integer to convert 

// 

// Result : i new index into a 

/////////////////////////////////////////////////////////////////// 
inline int routine get_ascii_whole_digits (char *a, int i, real * _n) 

{ 

int index, table_digit, skipleading; 

int64 n = _n->ip; /* integer portion */ 

do 

{ 

if (n < TABLE_SCALE) 

{ /* already less, no need for a divide */ 

index ■ (int) n; /* use the number as the index */ 

n = 0; /* no more number */ 

} 

else 

index = (int) (n % TABLE_SCALE) ; /* remainder */ 

n /= TABLE_SCALE; /* divide by TABLE_SCALE */ 

} 

a[i++] = ntab [index] [0]; /* always at least 1 character */ 

if ( n ) /* n does not equal zero */ 

{ /* more to come »/ 

for (table_digit = 1; table_digit < TABLE_DIGITS; 
table_digit++) 

a[i++] = ntab [index] [table_digit] ;/* convert all digits for this entry*/ 

} 

else 

{ /* skip leading *0's on last divide */ 

for (skip_leading = TABLE_DIGITS - 1; skip_leading; 
- - skipleading) 
if (ntab [index] [skip_leading] != *0') 

for (table_digit = 1; table_digit <= skip_l€iading; 

table_digit++) a[i++] = ntab [index] [table_digit] ; 
break; 

} 

} 

} 

while (n) ; 
return i; 

} /* get ascii whole digits */ 

FIG. 7 
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